Visual Basic.NET - crear tabla

Estoy intentando crear una simple base de datos en visual basic net y no se como hacerlo alguien me puede echar una mano
gracias de antemano

Imports ADOX
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim direccion As String
direccion = My.Application.Info.DirectoryPath
direccion = direccion & "\basedatos.mdb"

Dim cat As Catalog = New Catalog()
If System.IO.File.Exists(direccion) Then
Label1.Text = " LA BASE DE DATOS YA EXISTE"
Else

cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & direccion & ";" & _
"Jet OLEDB:Engine Type=5")

Label1.Text = "LA BASE DE DATOS CREADA CORRECTAMENTE"

cat = Nothing
End If

Dim conexion As New OleDbConnection
Dim rsTabla As OleDbCommand
conexion.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;" & "Data Source=" & direccion
conexion.Open()
Dim seleccion As String
seleccion = "CREATE TABLE TELEFONOS(CODIGO IN IDENTYTY,TELEFONO VARCHAR(50),DIRECCION VARCHAR(50));"
Dim OleCmd As OleDbCommand
OleCmd = New OleDbCommand(seleccion, conexion)


conexion.Close()
End Sub



End Class