ADO查询自动化错误（SQL）

Question

我是使用ADO连接到数据库的新手。我认为下面是一个简单的查询。在我完成了许多其他错误之后，它会抛出Runtime 80040e14 Automation错误。 SQL有效。我认为这条路线比查询表更好，但只是试图弄清楚---感谢您的帮助......

Private Sub MySub()

Dim Conn As ADODB.Connection
Dim DB As ADODB.Recordset

Dim SQL As String

Set Conn = New ADODB.Connection
Conn.ConnectionString = "Data Source='BigOleData';" & _
    "User ID='me';Password='Bu11etProof';"
Conn.ConnectionTimeout = 30
Conn.Open

Set DB = New ADODB.Recordset

SQL = "SELECT Col.1, Col.2, Col.3, Col.4, Col.5" _
& "FROM XXX. Col Col" _
& "WHERE Col.1=12" _
& "AND Col.5 BETWEEN ? and ?"

DB.Open SQL, Conn



End Sub