Imports System.Data.SqlClient

Public Class SQL
Public Function ToDataTable(ByVal sql As String)
Dim SqlCon1 As String = "Data Source=sprintsql;Initial Catalog=Logic;Integrated Security=SSPI;"
Dim dt As New DataTable
Dim da As New SqlDataAdapter(sql, SqlCon1)
da.Fill(dt)
da.Dispose()
Return dt
End Function

Public Function NonQuery(ByVal queryString As String)
Dim rows As Int32
Dim SqlCon1 As String = "Data Source=sprintsql;Initial Catalog=Logic;Integrated Security=SSPI;"
Using connection As New SqlConnection(SqlCon1)
Dim command As New SqlCommand(queryString, connection)
command.Connection.Open()
rows = command.ExecuteNonQuery()
command.Connection.Close()
End Using
rows /= 2
Return rows
End Function

Function ExecQryReturnID(ByVal sql As String)
Dim ID As Int64
Dim SqlCon1 As String = "Data Source=sprintsql;Initial Catalog=Logic;Integrated Security=SSPI;"
Dim con As New Data.SqlClient.SqlConnection
con.ConnectionString = SqlCon1 'connection string
con.Open()
Dim cmd As New Data.SqlClient.SqlCommand
cmd.CommandType = CommandType.Text
cmd.Connection = con
cmd.CommandText = sql & " SELECT SCOPE_IDENTITY();"
Dim identity As Integer = -1
ID = Integer.Parse(cmd.ExecuteScalar().ToString()) 'Get the @Identity Column
con.Close()
Return ID
End Function
End Class