Option Explicit

Const svr = "Atlas"
Const usr = "root"
Const pwd = "Plat0"

Dim conn	: Set Conn = CreateObject("ADODB.Connection")
Dim rs		: Set rs = CreateObject("ADODB.Recordset")


	With Conn

		.Open "DRIVER={MySQL ODBC 3.51 Driver};" & _
              	      "SERVER=" & svr & ";" & _
              	      "PORT=3306;" & _
              	      "DATABASE=tmp;" & _
              	      "USER=" & usr & ";" & _
              	      "PASSWORD=" & pwd & ";" & _
              	      "OPTION= 1 + 2 + 3 + 8 + 32 + 2048 + 16384"

		If .State = 1 Then

			With rs

				.Open "SELECT * FROM `notes`", Conn, 2, 3
				
				If .State = 1 Then
					
					.AddNew
					
					.Fields("Logged By") = "Chris"
					
					.Update
					.Close
					
				End If
			End With
			
			.Close
			
		End If
	End With
	
	
Set rs = Nothing
Set conn = Nothing