detta är felmedelandet

An unhandled exception of type 'System.Data.SqlClient.SqlException' occurred in system.data.dll

Additional information: Systemfel.


modulen

Option Explicit On
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes



Module GRINK
Public Function SKAPATABELL()

Dim cn As New SqlClient.SqlConnection("Data Source=(SMO);Initial Catalog=FOREX_5")


cn.Open()


Dim createStr As String = "CREATE PROCEDURE InsertCategory " & _
" @CategoryName nvchar(15), " & _
" @Identity int OUT " & _
"AS " & _
"INSERT INTO Categories (CategoryName) VALUES(@CategoryName) " & _
"SET @Identity = @@Identity " & _
"RETURN @@ROWCOUNT"

Dim createCMD As SqlCommand = New SqlCommand(createStr, cn)
createCMD.ExecuteNonQuery()
cn.Close()
End Function
End Module


funktionen lägges sedan under knappen kör

förslag..
1. testa att srkiva GO sist i din T-SQL.
2. testa att köra string-variabelns innehåll i Query Analyzern.
3. fånga SqlException och inspektera vad det innehåller, förhoppningsvis får du mer info där.