[محاسب يوسف]

اين الخطا بالكود
If conn.State = ConnectionState.Open Then conn.Close()
Dim sqlStatement As String = "SET ANSI_NULLS ON " & _
"SET QUOTED_IDENTIFIER ON " & _
"CREATE TABLE [dbo].[aa]( " & _
"[ID] [int] IDENTITY(1,1) NOT NULL, [idbill] [float] NULL,[invoic] [float] NULL,[way] [nvarchar](2000) NULL,[detail] [nvarchar](2000) NULL,[qty] [float] NULL,[rate] [float] NULL,[amount] [float] NULL,[avat] [float] NULL,[vat] [float] NULL,[total] [float] NULL,[datee] [nvarchar](2000) NULL, " & _
"CONSTRAINT [PK_aa] PRIMARY KEY CLUSTERED ([ID] ASC)WITH " & _
"(PAD_INDEX = OFF, " & _
"STATISTICS_NORECOMPUTE = OFF, " & _
"IGNORE_DUP_KEY = OFF, " & _
"ALLOW_ROW_LOCKS = ON, " & _
"ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]) " & _
"ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] "
A = New SqlCommand(sqlStatement, conn)
conn.Open()
A.ExecuteNonQuery()
conn.Close()
MsgBox("complete create tables")
Catch ex As Exception
MsgBox("THE Tables Are Exist ")
End Try