VB6, MySql, Stream Image to Blob, Null Value Error

[michels287]

With a single record in my table, I can use this code:

Private Sub Command1_Click()
 
Set cn = New ADODB.Connection
cn.Open "Provider=MSDASQL.1;Persist Security Info=False;" & _
      "Data Source=localhost;Initial Catalog=testdb"
 
Set rs = New ADODB.Recordset
rs.Open "Select * from album", cn, adOpenKeyset, adLockOptimistic
 
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile "C:\Users\Chris\Desktop\sample.jpg"
rs.Fields("picture").Value = mstream.Read
rs.Update
 
rs.Close
cn.Close
 
End Sub

My general declarations:

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As ADODB.Stream 

When the command is pressed the same record obviously would update with a different picture (assuming I change the file path of course). I do not get a null error there.

I would like to constantly add a new record instead of updating the same one.

If I use rs.AddNew just above, "rs.Fields("picture").Value = mstream.Read"

I get the null value error. It says that the column "picture" cannot have a null value. Can someone please help me?

Thanks for the attention.