VB6.0에서 MSSQL2000에 있는 데이터 테이블을 연결하는것 좀 제 소스보구 가르쳐 주세여..

본론부터 말씀드리겠습니다.
저는 기존에 엑세스DB를 사용하여 프로젝트를 하구있는데 교수님께서 MSSQL로 바꾸는게 좋을것 같다구 하셔서 지금 교체중에 있습니다.
그런데 연결법을 모르겠습니다.

기존에는 ADODC 컨트롤러를 엑세스DB에 연결하구 LIST박스를 하나 만들어 DATA SOURCE의 속성을 ADODC로 맞추고 코딩을 아래와 같이

제품코드라는 텍스트박스에서 제품코드를 모를때 ENTER KEY를 누르면 발생하는 이벤트로
LIST박스에 포커스를 얻어오게 하는데 access97.mdb파일에 엑세스하여
sortt(제품분류테이블)에서 sortcode(제품코드)를 list1박스에 얻어오는 문입니다. 여기서 다른 연동된 문은 있는데 생략하구 gotfocus()만 말씀드리는 겁니다.

Private Sub List1_GotFocus()
List1.Clear
Set db = DBEngine.Workspaces(0).OpenDatabase("access97.mdb")
Set ds = db.OpenRecordset("SELECT * FROM sortt order by sortcode")

Do Until ds.EOF
List1.AddItem "" + ds("sortcode") + ""
ds.MoveNext
Loop

ds.Close
End Sub

이렇게 하면 db가 열리구 거기에 해당하는 테이블에 접근하여 원하는 데이터를 얻을 수 있는데
MSSQL에서는 어떻게 위와 동일하게 엑세스를 해야될지 모르겠습니다.
나름대로 열심히 인터넷과 책을 사서 보구는있는데 도데체가 무슨말인지~~~~ㅜ.ㅜ

참고로 지금 저는 OLE DB 공급자는 Microsoft OLE DB Provider for ODBC Drivers로 데이터를 연결하였구 ADODC의 연결 문자열 사용에서는 Provider=MSDASQL.1;Password=0424;Persist Security Info=True;User ID=류창열;Data Source=물류관리데이터dsn라구 설정되어있습니다.

그럼..여러 고수님들의 좋은 의견 부탁드리겠습니다.
참고로
연락처 016-803-1826
MAIL : cyryu74@netian.com