Criar Base de Dados em Access ou sql em vb2010/.net

[CPais]

Eu tenho um mini programa que cria uma base de dados em Access em VB 6, só que agora estou a programar em vb 2010, não sei bem como se faz ...

Alguém sabe como Criar Base de Dados em Access ou sql em vb2010/.net

Código que tenho em VB6

Option Explicit

   Dim db As Database
   Dim NomeBaseDados As String
   Dim msg As String
   Dim Style As String
   Dim Title As String
   Dim Response As String
   Dim Tabela As TableDef
   Dim variavel As Field
   
   
   Private Sub Command4_Click()
    
   
   'Criar base dados
   NomeBaseDados = App.Path & "\MINHABASEDADOS.mdb"
   Set db = CreateDatabase(NomeBaseDados, dbLangGeneral, dbVersion30)

   msg = " Base de Dados Criada "
   Style = 0 + vbInformation
   Title = "INFORNOS"
   Response = MsgBox(msg, Style, Title)
   
   db.Close


End Sub

Private Sub Command5_Click()
    
 'abre base de dados
     Set db = DBEngine.OpenDatabase(App.Path & "\" + Text4.Text + ".mdb")
  
 'Cria a tabela
     Set Tabela = db.CreateTableDef(Text7.Text)
    
 'Cria a variavel ID
    Set variavel = Tabela.CreateField("ID", dbLong)
    variavel.Attributes = dbAutoIncrField ' make it a counter
    Tabela.Fields.Append variavel
   
 'Grava a Tabela com a variavel
    db.TableDefs.Append Tabela
      
 'Fecha Tabela
    db.Close
  
   msg = " Tabela criada Já com a variavel ID "
   Style = 0 + vbInformation
   Title = "INFORNOS"
   Response = MsgBox(msg, Style, Title)


End Sub


Private Sub Command6_Click()

 'abre base de dados
     Set db = DBEngine.OpenDatabase(App.Path & "\" + Text4.Text + ".mdb")
  
 'Abre a tabela
     Set Tabela = db.TableDefs(Text7.Text)
    
 'Cria uma nova variavel
    Set variavel = Tabela.CreateField(Text3, dbText, 255)
    Tabela.Fields.Append variavel
        
 'Fecha Tabela
    db.Close

    msg = " Tabela Criada "
   Style = 0 + vbInformation
   Title = "INFORNOS"
   Response = MsgBox(msg, Style, Title)

End Sub

[CPais]

Já descobri como Fazer ...

http://www.astahost.com/info.php/vb-net-ms...art_t12054.html