'宣言
Dim strConnectionString As String = _
  "Data Source=SERVER;Initial Catalog=DATABASE;User Id=USER;Password=PASS;" '接続文字列
Dim strSQL As String
Dim SqlConn As New System.Data.SqlClient.SqlConnection
Dim objDR As IDataReader = Nothing
Dim objDT As New DataTable

'ＤＢに接続する
SqlConn = New System.Data.SqlClient.SqlConnection(strConnectionString)

'SQLの結果をDataReader に読込む
strSQL = "SELECT * FROM TABLE1"

objDR = New System.Data.SqlClient.SqlCommand(strSQL, SqlConn).ExecuteReader()


'レコードが存在するかの判定
If objDR.Read() Then
  '１行目のレコードの読込み
  Dim strValue = objDR("Col1")
End If


'DataReader から DataTable にロードする
objDT.Load(objDR)
objDR.Close()

'宣言
Dim objTrn As System.Data.SqlClient.SqlTransaction
Dim objSC As System.Data.IDbCommand = Nothing

'トランザクション開始 ^^^^^^^^^^
objTrn = SqlConn.BeginTransaction()
objSC = SqlConn.CreateCommand
objSC.Transaction = objTrn

strSQL = "UPDATE TABLE1 SET COL1 = '0'"

'更新SQL発行
objSC.CommandText = strSQL
objSC.ExecuteNonQuery()

'トランザクション終了 ^^^^^^^^^^
objTrn.Commit()


'ロールバック ^^^^^^^^^^
objTrn.Rollback()