数据库连接

我用vb通过数据源连接到局域网中的数据库，为了防止网断数据连接丢失，我用timer每分钟判断一次，代码如下：测试没有问题，可每天早上看的时候数据库就是断开的，而且日志也没做记录，就是经过一个晚上程序就不能连接到数据库了
Private Sub Timer1_Timer()
        '''''''先测试连接后再往后做
        '''源
         '切换mysql与sqlserver
        test_gsconS = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=" & gserverD.sds_name 'mysql数据源连接
         Set test_gdbconS = New ADODB.Connection
        test_gdbconS.ConnectionString = test_gsconS
        Err.Clear
        On Error Resume Next
        test_gdbconS.Open
        
        If Err.Number <> 0 Then
           bz1 = bz1 + 1
           If bz1 = 1 Then
              biaoshi = Format(Now, "yyyy-m-d hh:mm:ss")
           End If
           Exit Sub
        Else
          If bz1 > 0 Then
                 gsconS = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=" & gserverD.sds_name 
                 Set gdbconS = New ADODB.Connection
                 gdbconS.ConnectionString = gsconS
                 gdbconS.ConnectionTimeout = 30
                 gdbconS.Open
                 gdbconD.Execute "insert into log_net ( disconn,reconn ) values('" & biaoshi & "','" & Format(Now, "yyyy-m-d hh:mm:ss") & "')"

                 biaoshi = "1900-01-01"
                 bz1 = 0
              
          End If
          test_gdbconS.Close
          Set test_gdbconS = Nothing
        End If
--------------------编程问答-------------------- 什么呀 --------------------编程问答-------------------- 这个简单啊,网上搜一下就得到答案了.

补充：VB ,  数据库(包含打印，安装，报表)