Dim cnn As New MySqlConnection
		Dim cmd As New MySqlCommand
		Dim sKuerzel As String = String.Empty
		Dim i, j As Integer
		Dim arrParam() As String
 
		Try
			cnn.ConnectionString = My.Settings.cnnMySQL_PC333
			cnn.Open()
			cmd.Connection = cnn
			cmd.CommandText = "SELECT Kuerzel FROM mapin WHERE ArztID = '" & sArztID & _
  "' AND Kuerzelin='?sKuerzelIn'"
			cmd.Prepare()
			arrParam = lofKuerzel(0).Split("|")
			cmd.Parameters.AddWithValue("?sKuerzelIn", arrParam(1))
			sKuerzel = cmd.ExecuteNonQuery
			If sKuerzel <> "-1" Then
				j = Convert.ToInt32(arrParam(0))
				lofLines(j) = "0008410" & sKuerzel
			End If
			For i = 1 To lofKuerzel.Count - 1
				arrParam = lofKuerzel(i).Split("|")
				cmd.Parameters("?sKuerzelIn").Value = arrParam(1)
				sKuerzel = cmd.ExecuteNonQuery
				If sKuerzel <> "-1" Then
					j = Convert.ToInt32(arrParam(0))
					lofLines(j) = "0008410" & sKuerzel
				End If
			Next
 
		Catch exError As Exception
			wrLogfile("Fehler: " & exError.Message & vbCrLf & "Stacktrace: " & _
  exError.StackTrace)
		Finally
			cnn.Close()
		End Try