SQL in VBA

Sub Oracle()
Dim conn, rs
Dim strSQL As String
Set conn = CreateObject("ADODB.Connection")
With conn
.ConnectionString = "Provider=OraOLEDB.Oracle.1;" & _
"Data Source=MFP;" & _
"User ID=mf_manager;Password=*****;"
.Open
End With
Set rs = CreateObject("ADODB.Recordset")
strSQL = "select p.nr, p.name nname, p.geschlecht, p.geburtsdatum, p.vorname, p.pat_nr, " &  _
_
"a.beginn, a.kis _id, v.ZIMMER, v.BETT, " & _
"FROM MF_MANAGER.AUFENTHALTE_MD a, MF_MANAGER.PERSONEN_MD p, " & _
"MF_MANAGER.VERLEGUNGEN_MD v " & _
"WHERE p.PAT_NR = a.PATIENT_NR AND a.NR = v.AUFENTHALT_NR " & _
"AND p.SUB_TYPE ='PATI' " & _
"AND v.datum=(select max(datum) from verlegungen_md where aufenthalt_nr=a.nr and status is  _
null and datum