.net 20 tables from SQL every sec.

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       getdata(DataGridView1,table1)
   End Sub

Public Sub getdata(ByVal datagrid As Object, ByVal tableno As string)
       Dim Server As String = "server"
       Dim User As String = "sa"
       Dim Pass As String = "1231231"
       Dim Database As String = "database"


       Dim ay = "; "
       Dim DBConnection As String = ""
       DBConnection = DBConnection & "Provider=SQLOLEDB.1" & ay
       DBConnection = DBConnection & "Data Source=" & Server & ay
       DBConnection = DBConnection & "Initial Catalog=" & Database & ay
       DBConnection = DBConnection & "User ID=" & User & ay
       DBConnection = DBConnection & "Password=" & Pass & ";"

       Dim SQL As String

       SQL = "select * from " & tableno & ""

       Dim Conn As New ADODB.Connection()

       Dim rs As New ADODB.Recordset()

       Dim daTitles As New OleDbDataAdapter()

       Dim dsTitles As New DataSet("test")


       Conn.Open(DBConnection, "", "", -1)

       rs.Open(SQL, DBConnection, CursorTypeEnum.adOpenDynamic, LockTypeEnum.adLockOptimistic)


       daTitles.Fill(dsTitles, rs, "setting")

       datagrid.DataSource = dsTitles.Tables(0)

       rs.ActiveConnection.close()
       rs.ActiveConnection = Nothing

       Conn.Close()
       Conn = Nothing

   End Sub