Dim sql As String = "call MAKESECCODEUpdate"

        Using cnX As New System.Data.Odbc.OdbcConnection("DRIVER={Adaptive Server Anywhere 9.0};ENG=ASA9;DBN=ASWINFO;Uid=" & dbuzivatel & ";Pwd=" & dbuzivatelheslo & ";Links=tcpip(Host=xxxx.cz);"), cmdX As New System.Data.Odbc.OdbcCommand(sql, cnX)
            cnX.Open()

            cmdX.Parameters.Add("@a_ID", SqlDbType.VarChar, 50).Value = id
            cmdX.Parameters.Add("@a_OPERACE", SqlDbType.VarChar, 50).Value = nazevbk
            cmdX.Parameters.Add("@a_UZIVATEL", SqlDbType.VarChar, 50).Value = uzivatel
            cmdX.Parameters.Add("@a_DATUM", SqlDbType.VarChar, 50).Value = datum
            cmdX.Parameters.Add("@a_PARAM1", SqlDbType.VarChar, 50).Value = ""
            cmdX.Parameters.Add("@a_PARAM2", SqlDbType.VarChar, 50).Value = ""
            cmdX.Parameters.Add("@a_PARAM3", SqlDbType.VarChar, 50).Value = ""
            cmdX.Parameters.Add("@a_KOMENTAR", SqlDbType.VarChar, 50).Value = ""

            MsgBox("YYYYY" & cmdX.ExecuteScalar().ToString())
            cnX.Close()

        End Using