Getting error in my LDAP query

Dim prefixText As String = "vg"
Dim cn As New 
Data.OleDb.OleDbConnection("Provider=ADSDSOObject")
Dim cmd As 
Data.OleDb.OleDbCommand = cn.CreateCommand()
cmd.CommandText = "select 
sAMAccountName, displayName, title, userAccountControl from 
'LDAP://DC=Vecelliogroup,DC=COM' where objectCategory = 'User' and title 
<> ' ' and (userAccountControl <> '66050' and userAccountControl 
<> '514') and sAMAccountName like '%" & prefixText & "%'"
 
Try
            Dim da 
As New 
Data.OleDb.OleDbDataAdapter(cmd)
            
da.Fill(mySqlDataTable)