The sqlcommand is currently busy open, fetching

[Eunice VB junior]

Hi, I'm trying to create a transaction code within a button click by performing the insert/update/select. Purpose is to make sure every operation can be rollback instead of some table inserted but some not. But I get this error: The SqlCommand is currently busy Open, Fetching. Description: "System.InvalidoperationException. The sqlCommand is currently busy open,Fetching." It happened at "cmd.ExecuteNonQuery()" (the insert command after select command). Line 52 from my codes. Here is my codes. Can anyone help me? Thanks a lot. Dim cn As New SqlClient.SqlConnection cn.ConnectionString = ("server=samtest;uid=sa;pwd=sa;database=Test") Dim cmd As New SqlClient.SqlCommand Dim tn As SqlClient.SqlTransaction Try cmd.Connection = cn If cn.State = ConnectionState.Closed Then cn.Open() tn = cn.BeginTransaction cmd.Transaction = tn j = 0 For j = 0 To jcounter - 1 Dim DefID As Object = dgItem.Item(j, 0) Dim Component As Object = dgItem.Item(j, 1) Dim QtyOut As Object = dgItem.Item(j, 3) Dim FailQty As Object = dgItem.Item(j, 4) Dim Type As Object = dgItem.Item(j, 5) cmd.CommandText = "Insert into LCDTest (UnitID,TestDefID,Component,PassQty,FailQty,Type) values(" & lblUnitID.Text & "," & DefID.ToString() & ",'" & Component.ToString() & "'," & QtyOut.ToString() & "," & FailQty.ToString() & ",'" & Type.ToString() & "')" cmd.ExecuteNonQuery() Next If icounter > 0 Then i = 0 For i = 0 To icounter - 1 Dim DefID As Object = dgResult.Item(i, 0) Dim Component As Object = dgResult.Item(i, 1) Dim FailureCode As Object = dgResult.Item(i, 2) Dim RejQty As Object = dgResult.Item(i, 3) Dim Remark As Object = dgResult.Item(i, 4) cmd.CommandText = "Select ID from LCDTest WHERE UnitID = " & lblUnitID.Text & " and stationid=" & Me.lblStationID.Text & " and TestDefID =" & DefID.ToString() & " " dr = cmd.ExecuteReader() If dr.Read() Then lblTestID.Text = dr(0).ToString() Else MessageBox.Show("No such ID. Please scan again.") lblTestID.Focus() Exit Sub