Visual Basic

Public Sub SetupDataConnections(ByVal strSQLSelectString As String, ByVal myDataSet As DataSet, ByVal myDataSetName As String, _
    Optional ByVal mySQLParameters As SqlParameter() = Nothing)

        Try

            mySQLConnection = New SqlConnection(_connectionString)
            mySQLConnection.Open()

            ' -- Check connection state
            If mySQLConnection.State = ConnectionState.Open Then

                myDataAdapter = New SqlDataAdapter(New SqlCommand(strSQLSelectString, mySQLConnection))

                ' -- If we have some parameters, add them to our command
                If Not mySQLParameters Is Nothing Then

                    myDataAdapter.SelectCommand.Parameters.AddRange(mySQLParameters)

                End If

                If Not myDataAdapter Is Nothing Then

                    Using myBindingSource

                        myDataAdapter.Fill(myDataSet, myDataSetName)
                        myBindingSource.DataSource = myDataSet
                        myBindingSource.ResetBindings(False)

                    End Using

                Else

                    CatchError("You must first create a SQL connection before calling this function")

                End If

            End If

        Catch ex As Exception

            CatchError(ex)

        End Try

    End Sub

Public Function SetupBindings(ByVal myDataSet As DataSet, ByVal myDataSetName As String, ByVal myForm As Control) As Dictionary(Of String, Date)

       myBindingSource.DataSource = myDataSet

        For Each myControl As Control In myForm.Controls

            Try

                myControl.DataBindings.Clear()

                If (TypeOf myControl Is TextBox OrElse TypeOf myControl Is ComboBox) AndAlso Not (myControl.Tag Is "" Or myControl.Tag Is Nothing) Then

                    myControl.DataBindings.Add("Text", myDataSet.Tables(myDataSetName), myDataSet.Tables(myDataSetName).Columns(GetColumnNameFromControlTag _
                    (myControl.Tag.ToString)).ToString, True, DataSourceUpdateMode.OnPropertyChanged)

                    '-- Bind data to associated textbox control
                ElseIf (TypeOf myControl Is DateTimePicker OrElse TypeOf myControl Is DateTimeControl) AndAlso Not (myControl.Tag Is "" Or myControl.Tag Is Nothing) Then

    '--  ... CONTINUE FOR EACH TYPE OF CONTROL BOUND TO THE FORM ...

                ElseIf myControl.HasChildren Then ' -- Recurse back in to function if there are children

                    SetupBindings(myDataSet, myDataSetName, myControl)

                End If

            Catch ex As Exception

                CatchError(ex)

            End Try

        Next

    End Function