Visual Basic

Private Function SaveMaterial() As Boolean

    Try
        ' The index of a zero-based collection is Count property minus 1.
        Dim iCnt As Integer
        iCnt = myMaterialsCollection.Count
        iCnt = iCnt - 1

        With myMaterialsCollection
            For Each aItem In myMaterialsCollection
                If iCnt = -1 Then
                    Exit For
                End If
                _gblString = CreateGUIDString()

                gblConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\JWI\Data\JWI.mdb;Jet OLEDB:Database Password=jWi;")

                strData = "INSERT INTO LOLItems (LOLItemsID, LOLIFormID, Type, TextBox, MaterialsID, Units, DateCreated )" _
                & " VALUES ('" & _gblString & "',  " _
                & "'" & _frmGuid & "', '" _
                & 1 & "',' " _
                & aItem.txtBoxName & "',' " _
                & aItem.MaterialID & "',' " _
                & aItem.jnts & "',' " _
                & Now() & "');"

                gblCMD.Connection = gblConn
                gblCMD.CommandText = strData
                Dim cmd As New System.Data.SqlClient.SqlCommand

                gblConn.Open()
                gblCMD.ExecuteNonQuery()

                myMaterialsCollection.Remove(iCnt)
                iCnt = iCnt - 1  'decrement until empty
            Next

        End With

    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try
End Function

Public Function StoreMaterial2COL(ByRef matID As String, ByRef ctrlname As String, ByRef jnts As String)
    Try
        'need to check to make sure the txtboxName has not been entered already
        'if so then the user is updated the amt and we need to update the
        'jnts and not add a new record.
        aItem.txtBoxName = ctrlname
        aItem.MaterialID = matID
        aItem.jnts = jnts

        myMaterialsCollection.Add(aItem)
    Catch ex As Exception

        'Catch ex As System.InvalidCastException
        MsgBox(ex.ToString)
    End Try
    Return True

End Function

'*#*#*#*#*#*#*#*#*#*#*#*#*
'Need to try to make a more generic method of doing this- a control array maybe????
'This is for column 1 Junk Rods
Private Sub txtRodJ_0_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtRodJ_0.LostFocus
    StoreMaterial2COL(lblRods_0.Tag, txtRodJ_0.Name, txtRodJ_0.Text)
End Sub
Private Sub txtRodJ_1_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtRodJ_1.LostFocus
    StoreMaterial2COL(lblRods_1.Tag, txtRodJ_1.Name, txtRodJ_1.Text)
End Sub
Private Sub lblRodJ_2_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtRodJ_2.LostFocus
    StoreMaterial2COL(lblRods_2.Tag, txtRodJ_2.Name, txtRodJ_2.Text)
End Sub
Private Sub txtRodJ_3_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtRodJ_3.LostFocus
    StoreMaterial2COL(lblRods_3.Tag, txtRodJ_3.Name, txtRodJ_3.Text)
End Sub

Dim f1 As New Font("Arial", 8.25)
Dim f2 As New Font("Arial", 8.25, FontStyle.Bold)

Overload resolution failed because no accessible 'New' can be called without
a narrowing conversion:
Public Sub New(familyName As String, emSize As Single, unit As
System.Drawing.GraphicsUnit)
: Argument matching parameter 'emSize' narrows from 'Double' to 'Single'.
Public Sub New(familyName As String, emSize As Single, unit As
System.Drawing.GraphicsUnit)
: Argument matching parameter 'unit' narrows from 'System.Drawing.FontStyle'
to 'System.Drawing.GraphicsUnit'.
Public Sub New(familyName As String, emSize As Single, style As
System.Drawing.FontStyle)
: Argument matching parameter 'emSize' narrows from 'Double' to 'Single'.

cmd = New SqlCommand("SELECT * FROM GuestInfoStore", con)

 If con.State = ConnectionState.Closed Then con.Open()

 myDA = New SqlDataAdapter(cmd)
 myDataSet = New DataSet()
 myDA.Fill(myDataSet, "MyTable")

 DataGridView_INFO.DataSource = myDataSet.Tables("MyTable").DefaultView

cmd = New SqlCommand("SELECT * FROM GuestInfoStore ORDER BY FirstName", con)