module1.bas

gestion commerciale sous vb

Attribute VB_Name = "Module1"
Option Explicit

Public dbsBase As New ADODB.Connection
Public rstResultat As New ADODB.Recordset
Public ca As Single
Public path, fournisseur, reste, conectString As String


Public Sub openbdr()
    fournisseur = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

    reste = ";Persist Security Info=False"
    conectString = fournisseur + path + reste
    dbsBase.ConnectionString = conectString
    dbsBase.Open
End Sub