strCon = "Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"
strCon.Execute "SET NAMES 'latin5'"
strCon.Execute "SET CHARACTER SET latin5"
strCon.Execute "SET COLLATION_CONNECTION = 'latin5_turkish_ci'"
End If

olarak denermisin ilgili satırı (olmazsa latin5 leri utf8 olarak değiştirip..)