[أبو عمر]

بهذه الجملة لن تتمكن من الاتصال لان
تعريفك لمتغير نصي ثم تجعل مساويا لكائن فهذا امر يستحيل
dim str as string = new Data.OledbCommand
هذا امر
الامر الثاني لا بد من فتح الاتصال قبل تنفيذ اي اجراء متضمن لجملة الاستعلام
ExecuteReader()
ExecuteScalar()
ExecuteNonQuery()
لكن سيضبط معك الكود بالشكل التالي

PHP كود :

Dim str = New Data.OleDb.OleDbCommand("select tname from tb ", New Data.OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\db.accdb"))
        str.Connection.Open() 


عن تجربة !
هذا والله أعلى وأعلم