Kod:
Private Sub Komut0_Click()
Dim dbConnectStr As String
Dim Catalog As Object
Dim cnt As ADODB.Connection
Dim dbPath As String
'Buraya veritabanı adresini giriniz
dbPath = Me.Application.CurrentProject.Path & "\" & Me.Metin1 & ".mdb"
dbConnectStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath & ";"
'Yeni veritabani yarat
Set Catalog = CreateObject("ADOX.Catalog")
Catalog.Create dbConnectStr
Set Catalog = Nothing
'Yeni veri tabanına bağlan
Set cnt = New ADODB.Connection
With cnt
.Open dbConnectStr
.Execute "CREATE TABLE " & Me.Metin3 & " ([Adi] text(50) WITH Compression, " & _
"[Soyadi] text(150) WITH Compression, " & _
"[BabaAdi] text(50) WITH Compression, " & _
"[AnneAdi] text(50) WITH Compression, " & _
"[Sehir] text(20) WITH Compression, " & _
"[PostaKod] decimal(6))"
End With
Set cnt = Nothing
End Sub
Deneyiniz....