Timer Vb.Net

[mrprogman]

Como le puedo hacer para que cada cierto tiempo me ejecute este codigo..en una forma de vb.net..me imagino que con un timer..pero como lo podria implementar..?..saludos y gracias por sus respuestas

Dim con7 As New OleDb.OleDbConnection
con7.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Expomecanico\Expo2012A.mdb;Persist Security Info=False;")
'Dim ban2 As Integer
con7.Open()
'Dim SSel As String
Dim da7 As OleDbDataAdapter = New OleDbDataAdapter("SELECT count(*) FROM Registrados group by id ", con7)
'SELECT count(clientes.NUMERO) AS Numero_Personas FROM clientes WHERE clientes.HORA_LLEGADA is not null

Dim ds7 As New DataSet
ds7.Clear()

Label17.Text = da7.Fill(ds7)

If da7 Is Nothing Then
MsgBox("Please enter First Name")
End If

'TextBox9.Text = ds7.Tables(0).Rows(0)("count(*)")
con7.Close()

Dim con8 As New OleDb.OleDbConnection
con8.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Expomecanico\Expo2012A.mdb;Persist Security Info=False;")
'Dim ban2 As Integer
con8.Open()
'Dim SSel As String
Dim da8 As OleDbDataAdapter = New OleDbDataAdapter("SELECT count(*) FROM Expo group by id ", con8)
'SELECT count(clientes.NUMERO) AS Numero_Personas FROM clientes WHERE clientes.HORA_LLEGADA is not null

Dim ds8 As New DataSet
ds8.Clear()

Label21.Text = da8.Fill(ds8)



con8.Close()