Arkadaşlar söle bi kodum var ama hep hata alıyorum

Dim dosya As Database, td As TableDef, fd As Field
Private Sub Command1_Click()
On Error Resume Next
If text1.Text = "" Then
MsgBox "Lütfen bir ism giriniz.", vbApplicationModal + vbInformation, "Form1"
text1.Text = ""

Else
On Error Resume Next
Set dosya = "c:\deneme.mdb" 'Burda hep hata alıyorum.
Set fd = td.CreateField("tarih", dbText, (20))
td.Fields.Append fd
dosya.TableDefs.Append td
dosya.Close
End if
End Sub


acemiyim vb6 da çözemedim sorunu neden hata alıyorum ?

Sn:exelance

Set dosya = "c:\deneme.mdb" yazan kodu aşağıdaki şekilde değiştiriniz.

sağolsın dediğin şekilde yaptım oldu .

Sn:exelance
Rica ederim konu cevaplanmışlara taşınmıştır.