Dim par1 as string = "parametro1"
Dim par2 as string = "parametro2"
Dim ExecString As String = "EXEC nome_store_procedure '" & par1 & "','" & par2 & "'"
Dim ConnectionString As String = "user id=username;password=pass;initial catalog=namedb;data source=servername;Connect Timeout=120"
Dim SqlConn As SqlClient.SqlConnection = New SqlClient.SqlConnection(ConnectionString)
Dim SqlCommand As New SqlClient.SqlCommand
SqlCommand.CommandTimeout = 15
SqlCommand.CommandType = CommandType.Text
SqlCommand.Connection = SqlConn
SqlCommand.CommandText = ExecString
SqlConn.Open()
SqlCommand.ExecuteNonQuery
SqlConn.Close()
SqlConn.Dispose()