Mine

Option Explicit

Public Type SocketInfo
    sBuffer As String
End Type

Public aSocketInfo() As SocketInfo

' Center a Form on screen.
' Syntax: Center <form name>

Public Sub Center(Form1 As Form)
    With Form1
        .Top = (Screen.Height - .Height) / 2
        .Left = (Screen.Width - .Width) / 2
    End With
End Sub

' Call Updater Bar
' Syntax: Updater <string>

Public Sub Updater(strStatus As String)
    With frmUpdater.lblStatus
        .Caption = strStatus
    End With
End Sub

Public Sub Parse(index)
    Select Case sTemp(0)
        Case "NEWACCT"
            MsgBox "Boo"
        Case "LOGIN"
            cmBO.CommandText = "SELECT COUNT(0) FROM Users WHERE Login_Username = ? AND Login_Password = ?"
            cmBO.Parameters.Append cmBO.CreateParameter("@Username", adVarChar, 50, sTemp(1))
            cmBO.Parameters.Append cmBO.CreateParameter("@Password", adVarChar, 50, sTemp(2))
            rsBO.Close                              ' Close Recordset
            Set rsBO = cmdBO.Execute()              ' Execute Command
            ' Not needed anymore...
            ' rsBO.Open sSQL, cnBO, 1, 3                      ' Open and Query
            
            If rsBO.RecordCount > 0 Then                    ' More than 0?
                rsBO.MoveFirst                              ' Move to Record 1
                
                If sTemp(1) <> rsBO("Login_Username").Value Then
                    MsgBox "User " & sTemp(1) & " exists!"
                Else
                    MsgBox "Nothing found!"
                End If
            Else
                MsgBox "No Records Exist", vbInformation, "No Records"
            End If
    End Select
End Sub

' Create Table
' Syntax CreateTBL <string>

Public Sub CreateTBL(strTable As String, strField1 As String, strField2 As String, strField3 As String, strField4 As String)
    strSQL = "CREATE TABLE " & strTable & "(strField1 CHAR, strField2 CHAR, strField3 CHAR, strField4 CHAR);"
   
    With xRS
        .Open strSQL, xCN, adOpenStatic, adLockOptimistic, adCmdText
    End With
End Sub