数据库连接的问题，菜鸟级的！

Public Function executesql(ByValSQL As String, megstring As String) As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
On Error GoTo executesql_error
sTokens = Split(SQL)
Set cnn = New ADODB.Connection
cnn.Open connectstring
If InStr("insert,delete,update", UCase$(sTokens(0))) Then
cnn.Execute SQL
msgstring = sTokens(0) & "query successful"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic
Set executesql = rst
msgstring = "查询到" & rst.RecordCount
End If
executesql_exit:
Set rst = Nothing
Set cnn = Nothing
Exit Function
executesql_error:
msgstring = "查询错误:" & Err.Description
Resume executesql_exit
End Function


Public Function connectstring() As String
connectstring = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=manage;uid=;pwd="
End Function


Public Function test(txt As String) As Boolean
If Trim(txt) = "" Then
testtxt = False
Else
testtxt = True
End If
End Function

好象是数据库连接的问题。
connectstring = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=manage;uid=;pwd="
是不是这句写得不对！数据库是access，没设用户和密码！