Makro für SQL Abfrage

Private Sub cmdTest_Click()
Dim cnOra As ADODB.Connection
Dim rsOra As ADODB.Recordset
Dim db_name As String
Dim UserName As String
Dim Password As String
Set cnOra = New ADODB.Connection
Set rsOra = New ADODB.Recordset
db_name = "*"
UserName = "*"
Password = "*"
cnOra.Open "DSN=" + db_name + ";UID=" + UserName + ";PWD=" _
& Password + ";"
rsOra.CursorLocation = adUseServer
rsOra.Open "select Test_ID from Test", cnOra, adOpenForwardOnly
While Not rsOra.EOF
Worksheets("Sheet1").Range("A1") = rsOra![BS]
rsOra.MoveNext
Wend
rsOra.Close
rsOra.Open "select Test2_ID from Test2", cnOra, adOpenForwardOnly
While Not rsOra.EOF
Worksheets("Sheet1").Range("A2") = rsOra![SP]
rsOra.MoveNext
Wend
rsOra.Close
cnOra.Close
Set rsOra = Nothing
Set cnOra = Nothing
End Sub