ASK LOGIN VB6 dengan SQ server 2000

[Guesuper]

Agan agan sekalian...

saya mau tanya nie..

lagi buat proyek Visual basic di form login yang dta loginnya di relasikan smaa database di SQL Server 2000..

ane udah buat tapi eror2 terus y gan..

bingung juga jadinya...






Spoiler for Form Login:












Scriptnya gan

<div style="margin:20px; margin-top:5px">
Spoiler for Script Login:


<div class="alt2" style="margin: 0px; padding: 6px; border: 1px inset;">
<div style="display: none;">
Public dbDAO As ADODB.Connection

Dim rec As ADODB.Recordset

Dim SQLStr As String

Dim Hitung As Integer

Dim Ket As String, Fokus As String, Status As String

Dim SuksesUser, SuksesPassword As Boolean

Private Sub cmdCancel_Click()

'set the global var to false

'to denote a failed login

'LoginSucceeded = False

'Me.Hide

End Sub



Private Sub cmdbatal_Click()

Me.Hide

End Sub



Private Sub cmdOK_Click()



Dim UsrID As String, Pasw As String, mnama As String

Dim akses As String, sapa As String

Dim i As Integer, Mulai As Integer, Akhir As Integer



lbljam.Caption = Format(Time, "hh:mm:ss")

'Periksa jam sistem utk keperluan sapaan waktu

If LTrim(Val(lbljam.Caption)) >= 0 And LTrim(Val(lbljam.Caption)) < 11 Then

sapa = "Selamat pagi"

ElseIf LTrim(Val(lbljam.Caption)) >= 11 And LTrim(Val(lbljam.Caption)) < 15 Then

sapa = "Selamat siang"

ElseIf LTrim(Val(lbljam.Caption)) >= 15 And LTrim(Val(lbljam.Caption)) < 18 Then

sapa = "Selamat sore"

ElseIf LTrim(Str(Val(lbljam.Caption))) >= 18 And LTrim(Str(Val(lbljam.Caption)))