[houssam11350]

كود :

Dim ConnSTR As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\db.mdb;Persist Security Info=False;"
        Dim connection As New OleDbConnection(ConnSTR)
        Dim command As New OleDbCommand ()
        command.Connection = connection
        connection.Open()
        command.CommandText = "CREATE PROC FF AS SELECT * FROM Employee "
        command.ExecuteNonQuery ()

أما إنشاء الجدول :
CREATE TABLE