베비 왕초보인데요.. 3709 런타임 오류 발생하였습니다.

비베 책 사서 혼자 끄적끄적 해보고 있는 중입니다. 왕초보~~3709 런타임 오류 발생하였습니다.이 작업을 수행하는데 연결을 사용할 수 없습니다. 이 컨텍스트에서 연결이 닫혀 있거나 잘못되었습니다.책보면서 나름대로 해본다고 했는데 이 부분에서 계속 막히네요..Private Sub Form_Load() visitormanager.Move (Screen.Width - visitormanager.Width) / 2, (Screen.Height - visitormanager.Height) / 2

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection

Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset
Form_Center Me
DBConn = Provider=Microsoft.Jet.OLEDB.4.0;Persist Security info=False;Data Source= & App.Path & \db.mdb
conn.ConnectionString = DBConn
conn.ConnectionTimeout = 30
conn.Mode = adModeReadWrite conn.Open
With lv목록
.ColumnHeaders.Add , , ID, 0
.ColumnHeaders.Add , , 이름, 800
.ColumnHeaders.Add , , 금액, 800
.ColumnHeaders.Add , , 휴대전화, 1400
.ColumnHeaders.Add , , 일반전화, 1400
.ColumnHeaders.Add , , 우편번호, 1000, lvwColumnRight
.ColumnHeaders.Add , , 주소, 3000
.ColumnHeaders.Add , , 관계, 1000
.ColumnHeaders.Add , , 이메일, 3000
End With
DefCol = &HFFFFFF
BakCol = &HC0FFFF
SortType = True
DefSQL = select * from 주소록 order by 관계
ReadData DefSQL
End SubSub ReadData(TargetDB As String)
sql = TargetDB
lv목록.ListItems.Clear
RS.Open sql, conn, adOpenKeyset ㅡㅡㅡㅡㅡ 여기입니다.
If RS.RecordCount = 0 Then RS.Close: Exit Sub
RS.MoveFirst
Do
With lv목록.ListItems.Add
.Text = RS!ID
.SubItems(1) = RS!이름
.SubItems(2) = RS!금액
.SubItems(3) = RS!휴대전화
.SubItems(4) = RS!일반전화
.SubItems(5) = RS!우편번호
.SubItems(6) = RS!주소
.SubItems(7) = RS!관계
.SubItems(8) = RS!이메일
End With
RS.MoveNext
Loop Until RS.EOF
RS.Close

End Sub