VB 6

Private Sub Command2_Click()
Dim sql As String
Dim admPassword As String

sql = "SELECT AdmPassword FROM parametri"
rsProdaja.Open sql, cnProdaja, adOpenForwardOnly, adLockReadOnly

If rsProdaja.RecordCount > 0 Then
admPassword = rsProdaja.Fields("AdmPassword").Value
rsProdaja.Close
If Text5.Text = admPassword Then
Frame1.Enabled = True
Frame2.Enabled = True
Else
MsgBox "Neispravna lozinka!", vbInformation, App.Title
End If
Text5.Text = ""
End If
End Sub
------------------------------------------------------------------------
I converted to vb2005 like this :
Is this good?

Private Sub Command2_Click()
Dim sql As String
Dim admPassword As String

sql = "SELECT AdmPassword FROM parametri"
rsProdaja.Open(sql, cnProdaja, adOpenForwardOnly, adLockReadOnly)
Dim dr2 As System.Data.SqlServerCe.SqlCeDataReader

If dr2.Read > 0 Then
admPassword = dr2("AdmPassword")
dr2.Close()
If TextBox1.Text = admPassword Then
Groupbox1.Enabled = True
Groupbox2.Enabled = True
Else
MsgBox("Neispravna lozinka!", vbInformation, App.Title)
End If
TextBox1.Text = ""
End If
End Sub