Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer.Tick
        Dim sqry As String
        Dim sqry1 As String
        Dim rs As New ADODB.Recordset
        Dim rs1 As New ADODB.Recordset
 
        sqry = "SELECT * FROM tbl_Games_Kniffel_Results WHERE U_ID = " & _
          Me.txtU_ID.Text
        rs.Open(sqry, sConnect_db, ADODB.CursorTypeEnum.adOpenDynamic, _
        ADODB.LockTypeEnum.adLockOptimistic)
                ...
        rs.Close
    End Sub