What error does it give? Also try the following
Dim cmdstr As String = ""
Dim rdstr As String = ""
rdstr = "SELECT store FROM stores"
con1.Open()
con2.Open()
Dim cmdread As New OleDbCommand(rdstr, con2)
Dim objreader As OleDbDataReader = cmdread.ExecuteReader()
Dim cmdmke As OleDbCommand
Do While objreader.Read()
objreader.Read()
cmdstr = "CREATE TABLE [" + objreader("store") + "] INHERITS [store sample]"
cmdmke = New OleDbCommand(cmdstr, con1)
Label1.Text = objreader("store")
cmdmke.ExecuteNonQuery() <<<<<<<<<<< ERROR!!!
Loop
con1.Close()
con2.Close()