Read data from MySQL to PLC

im db_server
Dim db_port
Dim db_user
Dim db_pass
Dim db_name
Dim db_tabelle
Dim Sql
Dim Conn
Dim strConnectString
Dim rs
Dim vysledek


db_server= "127.0.0.1"
db_port= "3306"
db_user= "root"
db_pass= "root"
db_name= "archiv"
 
If SmartTags("data.b00") = True Then
    
    Sql = "Select * from test limit 1"
 
    Set Conn=CreateObject("ADODB.Connection")
               strConnectString = "DRIVER={MySQL ODBC 5.1 Driver};" _
               & "SERVER=" & db_server & ";" _
               & " DATABASE=" & db_name & ";" _
               & "UID=" & db_user & ";PWD=" & db_pass & "; OPTION=3"
    Conn.Open strConnectString                                    
    Set rs=CreateObject("ADODB.recordset")    
    rs.Open Sql, Conn          
    
    
    
    rs.MoveFirst
    Do While Not rs.EOF
        
        SmartTags("Pole.Carovy_kod") = rs("slovo")
        
    rs.MoveNext
    Loop
    
    Conn.Close  

    
    SmartTags("data.b00") = False
     
End If

SQL_Table = "SELECT * FROM " & SmartTags("ODBC\strTableName_readDB")
'Reads the data records of the SQL table
 If SmartTags("ODBC\debug_message_on") Then ShowSystemAlarm SQL_Table
Set rst = conn.Execute(SQL_Table)
 
'Error routine
If Err.Number <> 0 Then
 ShowSystemAlarm "Error #" & Err.Number & " " & Err.Description
 Err.Clear 
 Exit Sub
End If
If SmartTags("ODBC\debug_message_on") Then ShowSystemAlarm SQL_Table
 
If Not (rst.EOF And rst.BOF) Then 
 'Compare if "End of File" or "Begin of File" exists, if not the pointer will be reset to the first entry
 
 rst.MoveFirst 'reset to 1st entry 
 
 'read from DB values into PLC tags
 SmartTags("ODBC\FromDB\cdr_type") = rst.Fields(0).Value
 SmartTags("ODBC\FromDB\shift_date") = rst.Fields(1).Value
' etc. etc.
 
 rst.close 
Else
 ShowSystemAlarm "Dat_No. is not available"
End If