[VBA] vba excel mysql

[thanosgr]

Καλημέρα παιδιά
πειραματίζομαι με excel vba και σύνδεση MySQL. Παραθέτω τον παρακάτω κώδικα

Private Sub CommandButton2_Click()
Dim con As ADODB.Connection
Dim rst As ADODB.Recordset

Set con = New ADODB.Connection

con.Open "DRIVER={Mysql ODBC 8.0 Unicode Driver};" _
& "Server=localhost;database=loginapp;user=root;option=3"

Dim sqlstr As String


Dim crow As Long, trow As Long
Dim id As Integer
Dim username As String
Dim password As String

Set rst = New ADODB.Recordset

trow = Sheets("Service Company 1").Range("b" & Rows.Count).End(xlUp).Row

For crow = 7 To trow

    id = Sheets("service company 1").Range("b" & crow).Value
    username = Sheets("service company 1").Range("c" & crow).Value
    password = Sheets("service company 1").Range("d" & crow).Value
    
    'sqlstr = "INSERT INTO  USERS  (id, username, password) values ( ' " & id & " ', " & " ' " & username & "', " & " ' " & password & "')"
     sqlstr = "INSERT INTO  USERS  (username, password) values ( ' " & username & "', " & " ' " & password & "')"
    
    rst.Open sqlstr, con, adOpenForwardOnly
    
    
Next

Set rst = Nothing
con.Close

Set con = Nothing

MsgBox ("Data inserted, succedssfully")


End Sub

Το θέμα μου είναι, πως μπορώ να ελέγξω σε πια κελιά υπάρχουν δεδομένα στο excel, γιατί με αυτόν τον τρόπο μου ανεβάζει στην database και τα κελιά που δεν έχουν δεδομένα.

Δεν ξέρω εάν το έχω εξηγήσει αναλυτικά

Ευχαριστώ