objStatusBar.Panels(lPanelIndex).Text = rs!UserName
example:
Code:
dim rs as new adodb.recordset
dim cn as new adodb.connection
dim query, strCon as string
Private sub form_load()
strCon = "Your Connection String here"
cn.open strCon
End Sub
Private Sub cmdLogin_Click()
query="SELECT UName FROM tblUsers WHERE UName = '" & txtUName.text & "' AND Pass = '" & txtPass.text & "'"
rs.open query, your preferred attributes here
if rs.recordcount > 0 then ' kung naay username og password na nakita base sa giinput sa textboxes
msgbox "Welcome " & txtUName.text & "", vbokonly+vbinformation, ""
objStatusBar.Panels(1).Text = rs!UName
end if
rs.close
End Sub
^_^