应当在vb中先定义两个begindate,enddate 为日期类型!

解决方案 »

  1.   

    需要引用ADO.工程--引用--Microsoft Activex Data Objects 2.xx..
      

  2.   

    Public Cnn As New ADODB.Connection TmpDBServer = "数据库名"
    tmpServer="..."
    TmpUser=".."
    TmpPass =".."CnString = "Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=" _
                & TmpDBServer & ";Data Source=" & tmpServer
    If Cnn.State Then Cnn.Close
    Cnn.Open CnString, TmpUser, TmpPass