Connection SQL server 2008 for VB6

Option Explicit
Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public Const Dbasefile = "rentcar.accdb"
Public Sub buka()
If Cn.State = adStateOpen Then Cn.Close
Cn.Mode = adModeReadWrite
Cn.Open "Provider=SQLNCLI10;Server=.\SQLEXPRESS;Database=libom;Trusted_COnnection=yes"
End Sub
Public Sub eksekusiSQL(SQLstr As String)
Cn.Execute SQLstr
End Sub
Public Sub OpenRecordset(SQLstr As String)
If Rs.State = adStateOpen Then Rs.Close
Rs.Open SQLstr, Cn, adOpenKeyset, adLockOptimistic, adCmdText
End Sub
Public Sub tutup()
If Rs.State = adStateOpen Then Rs.Close
Set Rs.ActiveConnection = Nothing
Set Rs = Nothing
If Cn.State = adStateOpen Then Cn.Close
Set Cn = Nothing
End Sub