原来的程序是用ACCESS做后台，，用ADO控件连接数据库的

现在想改成用SQL做后台。。。还是用ADO控件连接数据库。。。在程序中没有涉及到连接代码。。只在ADO属性里进行连接。。。。
请问各路大侠。。。。在ADO属性里怎么样连接SQL数据库保证程序的正常运行！！！！
谢谢各位给点源程序！！！

可是这样却不能正常运行啊！！！！
有几个ADO不能正常运行


timenow = Format(Date, "yyyy-mm-dd")
Adodc3.RecordSource = "select username,gatetime ,status from inout where datediff('d','" & timenow & "',gatetime)=0 and inout='签到'"
Adodc3.Refresh
Do Until Adodc3.Recordset.EOF
If Adodc3.Recordset.Fields(2) = "1" Then
If Len(Trim(Adodc3.Recordset.Fields(0).Value)) = 3 Then
List1.AddItem Trim(Adodc3.Recordset!UserName) + Space(3) + Format(Adodc3.Recordset!gatetime, "hh:mm:ss") + Space(10) + "已上传"
Else
List1.AddItem Trim(Adodc3.Recordset!UserName) + Space(5) + Format(Adodc3.Recordset!gatetime, "hh:mm:ss") + Space(10) + "已上传"
End If
Adodc3.Recordset.MoveNext
Else
If Len(Trim(Adodc3.Recordset.Fields(0).Value)) = 3 Then
List1.AddItem Trim(Adodc3.Recordset!UserName) + Space(3) + Format(Adodc3.Recordset!gatetime, "hh:mm:ss") + Space(10) + "未上传"
Else
List1.AddItem Trim(Adodc3.Recordset!UserName) + Space(5) + Format(Adodc3.Recordset!gatetime, "hh:mm:ss") + Space(10) + "未上传"
End If
Adodc3.Recordset.MoveNext
End If
Loop


这里就老是报错。。。。。