متشكر اخي على المساعدة وقد تم حل المشكلة عبر هذا الكود
كود :
Dim con As New SqlCeConnection("Data Source=" & Application.StartupPath & "\GoldinDB\GDB.sdf;Password=Codack;Persist Security Info=True")
Dim A001 As New SqlCeCommand
If con.State = ConnectionState.Open Then con.Close()
Dim sqlStatement As String = " Create Table [AAAAAAA] ([ID] [int] primary key identity not null,[Name] [nvarchar](100),[age] [nvarchar](100) ,[Mobile] [nvarchar](100))"
A001 = New SqlCeCommand(sqlStatement, con)
con.Open()
Try
A001.ExecuteNonQuery()
MsgBox("ok")
Catch ex As Exception
MsgBox("no")
End Try
con.Close()إِنْ يَنْصُرْكُمُ اللَّهُ فَلَا غَالِبَ لَكُمْ وَإِنْ يَخْذُلْكُمْ فَمَنْ ذَا الَّذِي يَنْصُرُكُمْ مِنْ بَعْدِهِ وَعَلَى اللَّهِ فَلْيَتَوَكَّلِ الْمُؤْمِنُونَ
لَيْسَ لَهَا مِنْ دُونِ اللَّهِ كَاشِفَةٌ
لَيْسَ لَهَا مِنْ دُونِ اللَّهِ كَاشِفَةٌ
