Visual Basic

Dim connCatapult As New OleDb.OleDbConnection("Provider=SQLOLEDB;Data Source=CATAPULT;Initial Catalog=Catapult;Integrated Security=SSPI")
        Dim daCatapult As New OleDb.OleDbDataAdapter("Select TestUserLoginDetails.UserName,  TestUserLoginDetails.Password FROM TestUserLoginDetails", connCatapult)
        Dim dsLoginData As New DataSet()

        Dim strUsername As String = Login1.UserName
        Dim strPassword As String = Login1.Password

        daCatapult.Fill(dsLoginData, "TestUserLoginDetails")
        'connCatapult.Open()

        '**********This is all that i'm trying to do*****************
        Dim strDbUserName As String
        strDbUserName = ????????????????????
        '********************************************************

Public Shared WithEvents theOpcServer As OPCAutomation.OPCServer = Nothing
Public Shared WtihEvents theOpcGroup As OPCAutomation.OPCGroup

Public Shared theOpcServer As OPCAutomation.OPCServer = Nothing
Public Shared theOpcGroup As OPCAutomation.OPCGroup

'Set Range to end of document
            Dim where As Range
            Set where = ActiveDocument.Range(ActiveDocument.Range.End - 1, ActiveDocument.Range.End - 1)
            
            'Insert table with 100 rows and 2 cols
            Set tablewith_different_styles = ActiveDocument.Tables.Add(where, 100, 2, _
                DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed)
            
            
            'Loop 100 times for each Font
            i = 0
            g = 1
            Do While i < 5
                Do While g < 21

                    'Got to table row i, col 1
                    tablewith_different_styles.Cell((i * 20) + g, 1).Select
                
                    
                    'Set random font
                    Selection.Font.Name = FontNames(g + 20)
                    'Save random font
                    Name_Font = Selection.Font.Name
                    'reset font for next output
                    Selection.Font.Name = "Courier New"
                    Selection.Font.Size = 9
                    'Insert font name and iterate to next line
                    Selection.TypeText Text:=Name_Font
                    Selection.MoveRight Unit:=wdCell
                    
                    'set font and size
                    Selection.Font.Name = FontNames(g)
                    Selection.Font.Size = 9
                    Selection.TypeText Text:="My Formatted Text in every Row."
                
                    g = g + 1
                Loop
                g = 1
                i = i + 1
            Loop