Merhabalar.
VB6 üzerinden mdb dosyaşı oluşturup, dosyada tablo oluşturabiliyorum. Ancak tablonun tüm alanlarının Sıfır Uzunluk İzni "Hayır" oluyor. Halbuki bazı alanların bazen boş olması gerekebiliyor. VB6 ile bunu istenilen şekilde yapmak mümkün mü acaba?
Kullandığım kod şöyle:

'Veritabanı dosyası yoksa oluştur
    If Dir(App.Path & "\data.mdb") = "" Then
        Dim NewDB As Database
        Set NewDB = CreateDatabase(App.Path & "\data.mdb", dbLangGeneral, dbVersion70) 'dosyanın oluşturulacağı tam yol yazılmalı
       
        'Tablo oluştur
        Dim Tablo As New TableDef
        Set Dosya = OpenDatabase(App.Path & "\data.mdb") 'tablo oluşturulacak dosyanın tam yolu
        With Tablo
        .Name = "Örnek_Tablo"
        .Fields.Append .CreateField("BAŞLIK", dbText, 50)
        .Fields.Append .CreateField("GRUP", dbText, 50)
        .Fields.Append .CreateField("METİN", dbMemo)
        .Fields.Append .CreateField("KNO", dbInteger)
        End With
        Dosya.TableDefs.Append Tablo
        Set Dosya = Nothing
        Set Tablo = Nothing

Bu konuda yardımcı olabileceklere şimdiden teşekkür ediyorum.